﻿Public Class clsInhTrMaszynaPozycjiSchematu
    Inherits clsTrMaszynaPozycjiSchematu

#Region "Attributes"

    Private mvarMaszyna As clsMaszyna

#End Region

#Region "Properties"

    Public Property Maszyna() As clsMaszyna
        Get
            Return mvarMaszyna
        End Get
        Set(ByVal value As clsMaszyna)
            mvarMaszyna = value
        End Set
    End Property

#End Region

#Region "Methods"

    Public Sub New()
        MyBase.New()
        mvarMaszyna = New clsMaszyna()
    End Sub

    Public Sub New(ByVal ID As Integer, ByVal lvarDbHolder As clsDataBase)
        MyBase.New(ID, lvarDbHolder, VAR_ERROR_HANDLER)
        mvarMaszyna = New clsMaszyna(MyBase.MaszynaId, lvarDbHolder, VAR_ERROR_HANDLER)
    End Sub

    Public Overloads Sub Save(ByVal lvarDbHolder As clsDataBase)
        MyBase.Save(lvarDbHolder, VAR_ERROR_HANDLER)
    End Sub

    Public Overloads Sub Delete(ByVal lvarDbHolder As clsDataBase)
        MyBase.Delete(lvarDbHolder, VAR_ERROR_HANDLER)
    End Sub

#End Region

End Class
